Xi Demos:
    Simple 2 dim. Plots | Velocity Field Surface | Trajektories

    Velocity Fields

    - Visualization of 2 dimensional data -

    Code for this example:

    (  1)>u=cos(dincarr(10,15)/20.);
    (  2)>v=transpose(sin(dincarr(15,10)/20.));
    (  3)>q=abs(u)+abs(v); q=q/max(q)*120;
    (  4)>window(0,\bpp=7);
    (  5)>plot(\xrange={0,14},\yrange={0,9},\title="Image of Field Strength",\
    (  6)>\position={0.01,0.01,0.7,0.5},\titleheight=0.05);
    (  6)>show(q,\linear,\position={-0.5,-0.5});
    (  7)>loadct(redmap(120)/1.5+80);
    Function redmap defined
    (  8)>contour(q,\nlevels=7,\curve);
    (  9)>
    ( 10)>/* now resize the image with the mouse */
    ( 11)>
    ( 12)>image_scale(0,120,\ticks={0,20,40,60,80,100,120}, \
    ( 13)>\title="Field Strength",\position={0.75,0.04,0.95,0.46});
    Function image_scale defined
    ( 14)>plot(\xrange={0,14},\yrange={0,9},\num=2,\title="Velocity Field",\
    ( 15)>\position={0.01,0.51,0.95,0.99});
    ( 16)>velocity_field(u,v,\nsteps=10,\stepSize=0.05,\curve,\noaxis);
    

    Rechts Index Linls © 1995 by Bodo Junglas, Klaus Spanderen and Fabian Weis
    - Last revised: April 23 1996